home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / PlotCMD.lha / plotcmd / mod_multiply.omed < prev    next >
Text File  |  1999-02-16  |  807b  |  45 lines
  1. /*
  2.     ARexx script for use with PlotCMD
  3.     (PlotCMD is a MUIRexx script for use with OctaMED Soundstudio)
  4.     Read the PlotCMD doc for details
  5. */
  6.  
  7. ADDRESS OCTAMED_REXX
  8. OPTIONS RESULTS
  9.  
  10. IN_SELECT LAST
  11. CALL checkifsample()
  12.  
  13. SA_GETSAMPLELENGTH
  14. odd=BITTST(RESULT, 0)        /* test LSB of samplelength => odd/even */
  15.  
  16. SA_CHANGEPITCH SOURCE 1 DEST 2
  17. SA_RANGE ALL
  18. SA_COPYRANGE
  19. SA_PASTE
  20.  
  21. IF (odd==1) THEN DO        /* add the odd sample lost at up-pitching */
  22.    SA_GETSAMPLELENGTH VAR len
  23.    SA_RANGE START len-1 END len
  24.    SA_COPYRANGE
  25.    SA_PASTE
  26. END
  27.  
  28. SA_SHOW ALL
  29.  
  30. EXIT
  31.  
  32.  
  33.  
  34.  
  35. /*              P R O C E D U R E S
  36. -----------------------------------------------------*/
  37.  
  38. checkifsample: PROCEDURE
  39.    IN_GETTYPE VAR type
  40.    IF ~(type == SAMPLE | type == SAMPLE16) THEN DO
  41.       WI_REQUEST '"No sample!"' '"Ok"'
  42.       EXIT
  43.    END
  44. return
  45.